home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 91
/
64er_Magazin_Sonderheft_91_19xx_Markt__Technik_de_Side_A.d64
/
text 83-2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
17KB
|
573 lines
1 rem texteditor text 83-2
2 print"[144][147])[191]e[146][218])?e[146][219]%[146][186]e[146][223]%[146][187]e[146][160]%[146][219][201][196]p[146]a[160])[146]f[165][223]e[146][223]p[146]b[166][146][160] [146]d1[146][223]e[146]";
3 print"bh1[146][223][176][164][146][198]b*[198]b*q[146][218]h[208][177][146]x%[146][218][169]ce[146][218])[146]dp[215][166][146][219]xp[210]":sys 256*peek(648):
4 remh/0c*@!"w!v9*4!"x*<h!v(,@,wk!@j&82x;4@ae@*@xr(ad*@a!@jau@j<tb2@[,are$@)n
5 rem@bztjr2q49zd$v2$439mx9vg42*j1!xh*<!"v(@4,v2$4@9evbb5bbdvv24p@9vw!@&$r"*d
6 rem)@$&wz*0:4@a9x)rv462)@b*a!@z+@7"j?#"@7*jn#fh4*3h#"@!+d4(bh#"d4*"<#ii@*08
7 [143]#i@/*@!"*!*:*:#&@@*^0#@k@v*2$s41?+@87b@+#@7"*e#*f4*ba#"h@+dz4j7k#d4(*2#&
8 remi@*^<#i+@* ;#@@'*)#"@@x<h.0ls )l!5r,)&2&@<a0zs2a<"r$&r*b@!?ihf0mbi?ubi?u
9 rem!?f(*1y"*y*+y?!&?(@p+h4(jc!.@+!y@bbubbav@$)[h/0c,?j*<)*edararrru!@,&)i*)
10 [143]a@$&)2n )?:*@!?*,@1e?,?zjc)-*lapbbbub!@y,)i**a@y$)2(0b$@0h100)*9r?!.*d@s
11 [143]se0a9)4\@9*tf))jzb!")$@!9))v*23k,@sle04da))[2:$ ]h/ 0(@0!v*f7!v;*p!"w*8:
12 [143]!x9!v,w;$v2$4>9ix4<c&$vi24>c9v4\=h100*2;!v*.j!wk*3!"x9vg,w$.v24p>9x$)x2"
13 [143]4$;c+h4(jc!.@+!y@bbubbav@(0p$v2$4>*n0!)k*3!.**@h!)**?!)y*c!.*z*pz*zdfx)b
14 [143]52h8$h2fx,@cj/x,2 , @j7;x2(h$d2b0,@c:ox,: 2"_4@1*_x$*zzp"2gz4@sl\02z'<p!
15 [143]2e< /2%x<.2fc4@#s\0g2#4(@s\102#9<v2fc<wp2d<$w2$9<x2j$4@#si0o2d4(@ss302$;
16 [143]<u2fd4@3sd0gsg9k)*d$a*c;!*s$e0)f)4a!))2&8<fan))j:b!"),@!1)nt)):.@!)+,@1e
17 rem**<h!*s$e0*f@!*j<a*ba!*jse0a*@!&*4a0*@!"*se00*8x!v*.@!vi$v2$4>9mv4=3*3!"
18 remv+h:4jck!@+&!@bubbbua@$&v24p>9v7)v8\4$<c*@!")!)+*3!"**8h!)*&c!*9se0a))2&
19 rem8$(#4a)f)2p($e)n):p(!))*):@z!)n$)):.j!)k,@1e*se@0))y2?$$@s'30))*zp!"))))
20 [143]z@!*)f)r)zj8!)$,@9*tse0a))!.v)*xj@!.v)v;4bnh*j9"v<@q,c)jvn:rj!vi,:1evd91
21 remfryb)!);$@9e*zbaivb]ivb]ivf\y)!*))))yv!.)*c[!*s$#0^x)@j*>!@*x)@jba!&@vx
22 poke53280,9:poke53281,0
23 dim lv(8):dima$(300):dimkf$(10):poke53265,peek(53265) and239
24 printchr$(14):cp=0:ty=1:gl=1:gr=0:print"[147]"
25 print" [155][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
26 print" [155] * * * * * [212][197][216][212][214][197][210][193][210][194][197][201][212][213][206][199] * * * * * [146]"
27 printchr$(14):gr=0:ko=0
28 forx=1to9:print"[152] [146]":next:poke53265,peek(53265) or16
29 input"[203]omma zulassen[j/n][146] j[157][157][157]";ko$:ifko$="j"thenko=1
30 input" [199] [146]rafik[152] oder [212] [146]ext [212][157][157][157]";gr$
31 input"[196]atum [212][212].[205][205].[202][202][202][202][146] [164][157][157][157]";io$
32 ifgr$="g"thengr=1
33 print"[147]"chr$(14):s=1
34 goto301
35 sys49152:poke53280,2:ak=1
36 rem *** "[197][196][201][212][207][210]" ***
37 rem ------
38 rem "a$(x)=[218]eile x"
39 rem "eg$ =eingelesenes [218]eichen"
40 rem "b$ =aktueller [215]ert der [218]eile"
41 rem "x =[218]aehlvariable f. [218]eile"
42 rem "left$=link.[212]eil bei [193]enderung"
43 rem "right=rech.[212]eil bei [193]enderung"
44 rem"[208]os =[218]aehlvari.fuer left$"
45 rem
46 rem--------------------------------
47 c$=" ":e=60:f=1:h=1:r=1:u=1:v=1:n=1:m=77:k=1:ab=1:kc=1:j=78:lc=0:dx=0
48 print"[147]":poke53280,2:ifdx=1thengoto302
49 gosub192
50 print" "lf$" [146]":print" [153] [211]eite: [146] [155]"r" [218]eilen: [146] "ab" bis "ab+17
51 iflc=0thenprint:goto57
52 print""
53 ifab>1thenprint
54 forpm=htokc:printa$(pm)"_":f=f+1-gr
55 iff=20thenf=1:gosub192
56 nextpm
57 lc=0
58 forn=abtoe:v=len(a$(n))+u:w=m:p=0:f=f+1-gr:printc$a$(n)"[170] [157][157]";
59 forl=vtom:
60 geteg$:ifeg$=""thenprint" [157][157][157][157][157][167] [157][157][157][157][157]";:goto60
61 :
62 ifasc(eg$)=137thenm=m-1:c$=c$+" ":k=k+1:goto 206
63 ifasc(eg$)=138thenm=m+1:k=k-1:c$=left$(c$,abs(k)):goto 206
64 ifasc(eg$)=139thenj=j-1:m=m-1:goto 206
65 ifasc(eg$)=140thenj=j+1:m=m+1:goto 206
66 ifko=0 and eg$=","theneg$="."
67 eg=asc(eg$)
68 ifeg=13thenw=0:l=m:print"_":goto76
69 ifeg=20andp>0thenp=p-1:b$=left$(b$,p):eg$="":print"[157]";:l=l-2:p=p-1:goto74
70 ifeg=133thenf=1:lc=1:ab=n:kc=n-1:goto301
71 ifeg=134thenf=1:lc=1:ab=n:kc=n-1:goto225
72 ifeg=135thenf=1:lc=1:ab=n:kc=n-1:goto117
73 b$=b$+eg$
74 print"[155]"eg$"[170] [157][157]";:eg$=""
75 q=l:lc=1
76 p=p+1:nextl
77 print"_[155]":a$(n)=c$+a$(n)+b$:b$=""
78 ifw<m thenv=1:goto93
79 ifleft$(right$(a$(n),2),1)=right$(a$(n),1)thenprint:goto93
80 if right$(a$(n),1)="."thenprint:goto93
81 if right$(a$(n),1)=":"thenprint:goto93
82 if right$(a$(n),1)=";"thenprint:goto93
83 if right$(a$(n),1)="!"thenprint:goto93
84 if right$(a$(n),1)="?"thenprint:goto93
85 if right$(a$(n),1)=chr$(32)thenprint:print:goto93
86 if right$(a$(n),1)="-"thenprint:goto93
87 print"[145]"
88 l$=a$(n):g=len(l$)-1
89 if right$(a$(n),1)=chr$(32)thengoto92
90 a$(n+1)=right$(a$(n),1)+a$(n+1):a$(n)=left$(a$(n),g):g=g-1:ifg=-1thengoto92
91 print"[145]"tab(g+1)" ":goto88
92 print
93 iff=20thenf=1:ab=n+1:kc=n:h=h+20:goto48
94 print"[145][145]":next
95 poke198,0:ifn>299thengoto109
96 print"[155] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][155] [175][146]"
97 print"":forx=1to80:print"-";:next:print"[145]"tab(50)" [208][210][197][211][211] [198] 1 [146][155]"
98 geteg$:ifeg$=""thengoto100
99 ifasc(eg$)=133thengoto105
100 eg$=""
101 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164] [197] n d e d e r [211] e i t e [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
102 print" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
103 forx=0to350:next
104 goto96
105 poke198,0
106 ab=n:kc=n:h=r*60:f=1
107 r=r+1:e=e+60
108 goto48
109 :
110 print"[147]"
111 sys49339
112 printchr$(14);"[197]nde der [211]eite [206]r.5":print"<[196]ruecke [198]1>"
113 geteg$:ifeg$=""thengoto113
114 ifasc(eg$)<>133thengoto113
115 dx=1
116 goto304
117 sys49339
118 print"[147]";chr$(14)
119 print"[147]":c=1
120 printtab(18)"[196][201][211][203]"
121 print""tab(13)" [196]iskbefehl [146]"
122 print""tab(13)" [196]iskinhalt "
123 getbb$:ifbb$=""then123
124 ifbb$=""thenc=2:goto128
125 ifbb$="[145]"thenc=1:goto121
126 ifasc(bb$)=13then131
127 goto123
128 print""tab(13)" [196]iskbefehl "
129 print""tab(13)" [196]iskinhalt [146]"
130 goto123
131 ifc=2thengoto160
132 print""tab(13)" [204]oeschen [146]"
133 print""tab(13)" [198]ormatieren "
134 getbb$:ifbb$=""then134
135 ifbb$=""thenc=2:goto139
136 ifbb$="[145]"thenc=1:goto132
137 ifasc(bb$)=13then142
138 goto134
139 print""tab(13)" [204]oeschen "
140 print""tab(13)" [198]ormatieren [146]"
141 goto134
142 ifc=2then152
143 input"[152] [206]ame ";f$
144 f$="s:"+f$
145 :
146 open1,8,15
147 close1
148 if(st and -128)<>0then print" [196]iskfehler[146][152]":poke198,0:wait198,1:goto146
149 open1,8,15,f$
150 close1
151 poke198,0:print"[147]":sys49152:goto48
152 input"[152] [206]ame ";f$:input" [201][196] ";i$
153 f$="n:"+f$+","+i$
154 open1,8,15
155 close1
156 if(st and -128)<>0then print" [196]iskfehler[146][152]":poke198,0:wait198,1:goto154
157 open1,8,15,f$
158 close1
159 poke198,0:print"[147]":sys49152:goto48
160 rem ***directory***
161 printchr$(147):print"[147][153][196]isketteninhalt:"
162 print"---------------"
163 print"[152]":ba$="":bb$="":cc$="":cc=0
164 open1,8,0,"$0"
165 get#1,ba$:get#1,bb$
166 get#1,ba$:get#1,bb$
167 get#1,ba$:get#1,bb$
168 ifba$<>""thencc=asc(ba$)
169 ifbb$<>""thencc=cc+asc(bb$)*256
170 print"[152]"mid$(str$(cc),2);tab(8);
171 get#1,bb$:ifst<>0then179
172 ifbb$<>chr$(34)then171
173 get#1,bb$:ifbb$<>chr$(34)thenprintbb$;:goto173
174 get#1,bb$:ifbb$=chr$(32)then174
175 printtab(30);:cc$=""
176 cc$=cc$+bb$:get#1,bb$:ifbb$<>""then176
177 print"["left$(cc$,3)"]"
178 ifst=0then166
179 print"[158][194][204][207][195][203][211] [198][210][197][197]":close1
180 poke198,0:wait198,1:poke198,0
181 print"[147]":sys49152:goto48
182 print"[147]"
183 input"[158][211]ind [211]ie sicher [j/n] ? j[144][157][157][157]";gg$
184 ifgg$="n"thenprint"[147]":goto306
185 print"[155][196]atei '"lf$
186 print"wird geloescht !":lf$=""
187 forx=0to300:a$(x)="":next:ty=1:kr=0:goto24
188 print"[145]"tab(60)"12345678901234567890[145]"
189 ifj>78thenj=78:m=m-1
190 if(j-1)<kthenj=k:m=m+1
191 print"[145]"tab(j)"[167][164]"
192 ifk<0thenk=0
193 print"[152][147]":gosub218
194 if(k+1)>jthenk=k-1:f=f-1:m=m+1:c$=c$-" "
195 print"[152]"tab(0);
196 print"123456789012345678901234567890123456789012345678901234567890"
197 print"[145]"tab(60)"12345678901234567890[145]"
198 ifj>78thenj=78:m=m-1
199 if(j-1)<kthenj=k:m=m+1
200 print"[145]"tab(j)"[167][164]"
201 ifk<0thenk=0
202 print""tab(k-1)"[164][165]"
203 f=f+1:return
204 forl=1ton:printa$(l):next
205 print"123456789012345678901234567890123456789012345678901234567890"
206 lc=1:eg$="":ab=n:kc=n-1:f=1:gosub218
207 if(k+1)>jthenk=k-1:m=m+1:c$=c$-" "
208 print"[152]"tab(0);
209 print"123456789012345678901234567890123456789012345678901234567890"
210 print"[145]"tab(60)"1234567890123456789[145]"
211 ifj>78thenj=78:m=m-1
212 if(j-1)<kthenj=k:m=m+1
213 print""tab(j)"[167][164]"
214 ifk<1thenk=1:m=m-1:c$=c$+" "
215 print""tab(k-1)"[164][165]"
216 goto50
217 rem
218 rem ***"[200][201][204][198][197][204][197][201][211][212][197]"***
219 rem
220 printchr$(14):print""tab(40)" * * * [212] [197] [216] [212] [197] [196] [201] [212] [207] [210] * * * "
221 :
222 print" [154] [198] 1 = [196][160][193][160][212][160][197][160][201] [146][221] [198][160]3 = [200] [201] [204] [198] [197]"
223 print"[145]"tab(46)" [146][221] [198] 5 = [196][160][201] [211][160][203] [146][144]"
224 return
225 sys49339
226 print"[147]";chr$(14)
227 print"[200]ilfe - [205]enue"
228 print"[192][192][192][192][192][192][192][192][192][192][192][192][192]"
229 ift=1thenprint"[153][198]2 - [198]4 - [212]abulator linker [210]and -->"
230 ift=4thenprint"[153][198]4 - [212]ext verschieben -->"
231 ift=1thenprint"[198]6 - [198]8 - [212]abulator rechter [210]and <--"
232 ift=4thenprint"[198]6 - [212]ext verschieben <--"
233 print"[198] 1 - [196]atei bearbeiten"
234 print"[198] 5 - [196]iskbefehl senden"
235 :
236 print" 1.@ - [194]reitschrift drucken"
237 print" 2.? - [194]reitschrift beenden"
238 print" 3.[195]om + [212] - [213]nterstreichen"
239 print" 4.[195]om + + - [213]nterstreichen beenden"
240 print" 5.[195]om + * - [198]ettdruck"
241 print" 6.[211]hift+\ - [198]ettdruck beenden"
242 print" 7.[211]hift+5 - [150][206].[204].[209].[153]"
243 print" 8.[211]hift+6 - [196]raft"
244 print" 7. _ - [212]iefzeichen"
245 print" 8. ^ - [212]iefz. loeschen"
246 print"[154] [210]eihenfolge der [196]ruckercodes beachten![155]"
247 print"[153] [201]m [199]rafikmodus [206].[204].[209]. einstellen ![155]"
248 poke198,0:wait198,1:poke198,0
249 print"[147]";chr$(142):sys49152
250 ifui=3goto434
251 goto48
252 printchr$(14)
253 print"[147][196]ateiname : "lf$
254 print" [215]ollen [211]ie den [206]amen aendern [j/n] ?"
255 gets$:ifs$=""then255
256 ifs$="n"thengoto264
257 lf$="":print" [198]ilename [^] [205]enue : [164]";
258 geteg$:k=len(lf$):ifeg$=""thengoto258
259 ifeg$="^"thengoto302
260 if(eg$=chr$(20) andk>0)thenprint"[157][157] [157][157][164]";:lf$=left$(lf$,k-1):goto258
261 ifeg$=chr$(20)thengoto258
262 ifeg$=chr$(13)thengoto264
263 print"[157]"eg$"[164]";:lf$=lf$+eg$:eg$="":iflen(lf$)<12thengoto258
264 l$=lf$+".txt,s,w":k$=lf$+".txt,s,r"
265 open2,8,15
266 open1,8,2,k$
267 input#2,en,e$,et,es:ifen<>0thenclose1:close2:goto269
268 print:print"[150][196]atei loeschen oder neuen [206]amen !":close1:close2:goto257
269 print:print"[196]atei '"lf$"' wird gesichert !":open1,8,2,l$
270 print#1,n:print#1,e
271 foro=1to177
272 print#1,a$(o)
273 next
274 print#1,"***":close1:goto302
275 printchr$(14)"[147][159]":ifty>1thenprint" "ty"[157].[196]atei laden [j/n] ? [146]":poke198,0
276 ifty=1thengoto279
277 geteg$:ifeg$=""thengoto277
278 if(eg$="n" orty=11)thengoto302
279 gosub567:print">> [196][193][212][197][201] laden <<"
280 print"[155] [196]irectory [$] [146]":print" [205]enue [^] [146]"
281 input" [196]ateiname :";kf$(ty):lf$=lf$+" / ":ifty=1thenlf$=""
282 ifkf$(ty)="^"thenkf$(ty)="":goto302
283 lf$=lf$+kf$(ty):m$=kf$(ty)+".txt,s,r"
284 open1,8,15
285 close1
286 if(st and -128)=0thengoto289
287 if(st and -128)<>0thenprint"[150] [198]loppy anschalten ![146]"
288 print"[153] [196]ruecke [212]aste [146][155]":poke198,0:wait198,1:poke198,0:goto284
289 open1,8,15:ifkf$(ty)="$"thenclose1:goto545
290 k$="0:"+m$:open2,8,2,k$:input#1,en,e$,et,es:ifen=0thenclose2:close1:goto292
291 close2:close1:print"[150]"e$:goto281
292 print" [204]oading --> [158]"kf$(ty):open1,8,2,m$
293 input#1,n:input#1,e
294 foro=glto300
295 input#1,a$(o)
296 ifa$(o)="***"thena$(o)="":goto300
297 a$(o)=c$+a$(o)
298 next
299 ifgl+n>300thenprint"[150] [193]chtung ! [211]peicher voll ![146]":cp=1:poke198,0:wait198,1
300 close1:ty=ty+1:gl=gl+n:ab=n:kc=n-1:print"[147]":goto302
301 rem menue
302 poke198,0:poke53265,peek(53265) and239
303 sys49339:am=1:lv(am)=1
304 print"[147]"
305 :
306 printchr$(142)"[147][144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
307 print"[145][221] * * * * * texteditor t83-2[146][144] * * * * * [221]"
308 print"[145][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
309 print"datum: ";io$:print" f1[165][167][223][146]"
310 print" [223][165][167]f3"
311 poke53280,6:poke53281,14:z$(0)=" datei [146] "
312 z$(1)=" editor "
313 z$(2)=" loeschen "
314 z$(3)=" laden "
315 z$(4)=" aendern "
316 z$(5)=" sichern "
317 z$(6)=" drucken "
318 z$(7)=" beenden ":goto328
319 printtab(z)"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
320 printtab(z)"[180] [170]"
321 printtab(z)"[180]"z$(0)"[170][144] [146]"
322 printtab(z)"[180] [170][144] [146]"
323 printtab(z)"[180]"z$(t)"[170][144] [146]"
324 printtab(z)"[180] [170][144] [146]"
325 printtab(z)"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][186][144] [146]"
326 printtab(z)"[144] [146]"
327 return
328 poke53265,peek(53265) or16:z=2:l=1:t=1
329 print"":gosub319
330 goto334
331 t=t+1:z=z+3:l=l+2:ifz<2thenz=2:l=1:t=1
332 ifz>20thenz=20:l=13:t=t-1
333 print"":forx=1tol:print:next:gosub319
334 forx=55338to55346step2:pokex,1:pokex,0:next
335 forx=55365to55373step2:pokex,1:pokex,0:next
336 geteg$:ifeg$=""thengoto334
337 ifeg$=""thenprint"":goto328
338 ifasc(eg$)=133thengoto331
339 ifasc(eg$)=134thenz=z-6:l=l-4:t=t-2:goto331
340 ifasc(eg$)=13thengoto342
341 goto334
342 print"[147]"chr$(14):poke53280,12:poke53281,0
343 if(t=1 andkr<1)thengoto521
344 ift=2thengoto182:rem loeschen
345 if(t=3 andcp=0)thengoto275:rem laden
346 ift=4thenx=n:ab=x:ac=n:print"[144]":sys49152:goto 434
347 ift=5thena$(n+1)="***":goto252:rem sichern
348 ift=6thengoto352:rem drucken
349 ift=7thenprint"[147]":end:rem ende
350 if(t=1 andkr=1)thenprint"[144]":sys49152:goto48
351 goto302
352 rem *****drucken*****
353 poke53265,peek(53265) and239:print"[147]"chr$(14):poke53280,9:poke53281,0
354 xc=0:print" [196]rucken"
355 print" -------"
356 print" [193]usdrucken aller [211]eiten [193] [146]"
357 print" [193]usdruck einer [211]eite [197] [146]":poke53265,peek(53265) or16
358 get y$:ify$=""then358
359 ify$="a"thengoto362
360 ify$="e"thengoto399
361 goto358
362 print"[150] [193] [146]"
363 open1,4
364 print#1,chr$(13)
365 close1:poke198,0
366 if(st and -128)<>0thenprint"[150] [196]rucker anschalten [146] [152]"
367 if(st and-128)<>0thenprint" < [212]aste druecken >":wait198,1:goto352
368 :
369 print" [196]rucke [211]eite [206]r. "
370 print" [193]bbruch [150] [197] [146]"
371 print" [196]rucken [150] [196] [146]"
372 getq$:ifq$=""then372
373 ifq$="e"thenclose4:goto301
374 ifq$="d"then376
375 goto372
376 print" [196]rucke [211]eite [206]r. "
377 xc=xc+1:poke198,0
378 print"[153] [157]"xc"[157] [146]"
379 open4,4,7
380 forx=xc*60-59toxc*60:g$=left$(a$(x),1)
381 ifx=178thengoto398
382 ifg$="@"thengosub501:g$=left$(a$(x),1)
383 ifg$="?"thengosub503:g$=left$(a$(x),1)
384 ifg$="[163]"thengosub505:g$=left$(a$(x),1)
385 ifg$="[166]"thengosub507:g$=left$(a$(x),1)
386 ifg$="[223]"thengosub509:g$=left$(a$(x),1)
387 ifg$="[169]"thengosub511:g$=left$(a$(x),1)
388 ifg$="%"thengosub513:g$=left$(a$(x),1)
389 ifg$="&"thengosub515:g$=left$(a$(x),1)
390 ifg$="_"thengosub517:g$=left$(a$(x),1)
391 ifg$="^"thengosub519:goto393
392 ifgr=0thenprint#4
393 rem iff=3thena$(x)=right$(a$(x),len(a$(x))-1)
394 print#4,a$(x):next
395 ifpeek(198)>0thenclose4:goto301
396 ifxc=5thenclose4:goto301
397 print"[158] [211]eite gedruckt "
398 close4:goto372
399 print"[150] [197] [146]":xc=1
400 open1,4
401 print#1,chr$(13)
402 close1:poke198,0
403 if(st and -128)<>0thenprint"[150] [196]rucker anschalten [146] [152]"
404 if(st and-128)<>0thenprint" < [212]aste druecken >":wait198,1:goto352
405 input" [215]elche [211]eite drucken 1[157][157][157]";xc:ifxc=0then301
406 ifxc=0thenclose4:goto301
407 print" [196]rucke [211]eite [206]r. "
408 print" [193]bbruch [150] [197] [146]"
409 print" [196]rucken [150] [196] [146]"
410 getq$:ifq$=""then410
411 ifq$="e"thenclose4:print"[147]":goto301
412 ifq$="d"then414
413 goto410
414 poke198,0
415 print"[150] [157]"xc"[157] [146]"
416 open4,4,7
417 forx=xc*60-59toxc*60
418 forx=xc*60-59toxc*60
419 g$=left$(a$(x),1)
420 ifg$="@"thengosub501:g$=left$(a$(x),1)
421 ifg$="?"thengosub503:g$=left$(a$(x),1)
422 ifg$="[163]"thengosub505:g$=left$(a$(x),1)
423 ifg$="[166]"thengosub507:g$=left$(a$(x),1)
424 ifg$="[223]"thengosub509:g$=left$(a$(x),1)
425 ifg$="[169]"thengosub511:g$=left$(a$(x),1)
426 ifg$="%"thengosub513:g$=left$(a$(x),1)
427 ifg$="&"thengosub515:g$=left$(a$(x),1)
428 ifg$="_"thengosub517:g$=left$(a$(x),1)
429 ifg$="^"thengosub519:goto431
430 ifgr=0thenprint#4
431 print#4,a$(x):next
432 ifpeek(198)>0thenclose4:goto352
433 close4:goto405
434 rem ***aendern***
435 printchr$(147);chr$(14):zz=0:cd=0:ce=0:cf=0:ui=0:kp=0
436 print"[147][155] [198]1 - [196] a t e i [221] [198]3 - [197]infue"
437 print"[145]"tab(36)"gen [221] [198]5 - [197]ntfernen [221] [198]2 - [200]ilfe [146]"
438 forlf=1to15
439 forg=1to20
440 printa$(g+zz)
441 nextg:ifkp=1thenprint""
442 zz=zz+20:kp=1
443 rem * * * * * * * * * * * * * *
444 print""
445 print"[155][175][157]";
446 cd=cd+1
447 ifcd=21thencf=cf+20:cd=0:next
448 getw$:ifw$=""then448
449 ifw$=""thenzz=zz-20:cd=0:print"[147]":goto439
450 ce=ce+1
451 ifce>len(a$(cd+cf))thena$(cd+cf)=a$(cd+cf)+" "
452 ifw$=""thenprintmid$(a$(cd+cf),ce,1):ce=0:goto445
453 ifw$="[145]"thenprintmid$(a$(cd+cf),ce,1)"[145][145]":ce=0:cd=cd-2:goto445
454 ifw$=""thenw$=mid$(a$(cd+cf),ce,1)
455 ifw$="[157]"thenprintmid$(a$(cd+cf),ce,1)"[157][157][175][157]";:ce=ce-2:goto448
456 if asc(w$)=134thengoto473
457 if asc(w$)=135thengoto488
458 :
459 if asc(w$)=137thenui=3:goto225
460 if asc(w$)=138thengoto531
461 if asc(w$)=139thengoto538
462 if asc(w$)=13thenprintmid$(a$(cd+cf),ce,1):ce=0:goto445
463 if asc(w$)=133thengoto301
464 ifce=79thenprintmid$(a$(cd+cf),ce,1):ce=0:goto445
465 printw$"[175][157]";
466 ifce=1thena$(cd+cf)=w$+right$(a$(cd+cf),len(a$(cd+cf))-1):goto448
467 hj=cd+cf:kl$=""
468 kl$=left$(a$(hj),ce-1)
469 kl$=kl$+w$
470 kl$=kl$+right$(a$(hj),len(a$(hj))-ce)
471 a$(hj)=kl$
472 goto448
473 ac=ac+1:rem zeile einfuegen
474 ifcd+cf<59thengoto479
475 ifcd+cf<118thengoto482
476 ifcd+cf<177thengoto485
477 ifcd+cf<236thengoto1921
478 ifcd+cf<295thengoto1936
479 forx=59tocd+cfstep-1
480 a$(x)=a$(x-1):next
481 goto434
482 forx=118tocd+cfstep-1
483 a$(x)=a$(x-1):next
484 goto434
485 forx=177tocd+cfstep-1
486 a$(x)=a$(x-1):next
487 goto434
488 ac=ac-1:rem zeile entfernen
489 ifcd+cf<59thengoto492
490 ifcd+cf<118thengoto495
491 ifcd+cf<177thengoto498
492 forx=cd+cfto59
493 a$(x)=a$(x+1):next
494 goto434
495 forx=cd+cfto118
496 a$(x)=a$(x+1):next
497 goto434
498 forx=cd+cfto176
499 a$(x)=a$(x+1):next
500 goto434
501 print#4,chr$(14);:a$(x)=" "+right$(a$(x),len(a$(x))-1):f=3
502 return
503 print#4,chr$(15);:a$(x)=" "+right$(a$(x),len(a$(x))-1):f=0
504 return
505 print#4,chr$(27);chr$(45);chr$(49);
506 a$(x)=" "+right$(a$(x),len(a$(x))-1):f=0:return
507 print#4,chr$(27);chr$(45);chr$(48);
508 a$(x)=" "+right$(a$(x),len(a$(x))-1):f=0:return
509 print#4,chr$(27);chr$(69);
510 a$(x)=" "+right$(a$(x),len(a$(x))-1):f=0:return
511 print#4,chr$(27);chr$(70);
512 a$(x)=" "+right$(a$(x),len(a$(x))-1):f=0:return
513 print#4,chr$(31);
514 a$(x)=" "+right$(a$(x),len(a$(x))-1):f=0:return
515 print#4,chr$(159);
516 a$(x)=" "+right$(a$(x),len(a$(x))-1):f=0:return
517 print#4,chr$(27);chr$(83);chr$(49);
518 a$(x)=" "+right$(a$(x),len(a$(x))-1):f=0:return
519 print#4,chr$(27);chr$(84);
520 a$(x)=" "+right$(a$(x),len(a$(x))-1):f=0:return
521 print"[147] "
522 print" [196]ateiname "
523 print" [146]"
524 l=13:jk$="":print""tab(l+1)"[164]":goto526
525 print""tab(l)jk$"[164]":jk$=""
526 getjk$:ifjk$=""then526
527 l=l+1:ifl>29thenl=29
528 ifjk$=chr$(13)thenkr=1:print"[144][147]":sys49152:goto35
529 lf$=lf$+jk$
530 goto525
531 rem text -->
532 forx=1toe
533 lu=len(a$(x)):iflu<2thengoto536
534 iflu>79thengoto536
535 a$(x)=" "+a$(x)
536 next
537 goto434
538 rem text <--
539 forx=1toe
540 lu=len(a$(x)):iflu<2thengoto543
541 if left$(a$(x),1)<>chr$(32)thengoto543
542 a$(x)=right$(a$(x),lu-1)
543 next
544 goto434
545 ifty=1thenlf$=""
546 ifty>1thenlf$=left$(lf$,(len(lf$)-4))
547 printchr$(147):print"[147][153][196]isketteninhalt:"
548 print"---------------":print"[155]":ba$="":bb$="":cc$="":cc=0
549 open1,8,0,"$0"
550 get#1,ba$:get#1,bb$
551 get#1,ba$:get#1,bb$
552 get#1,ba$:get#1,bb$
553 ifba$<>""thencc=asc(ba$)
554 ifbb$<>""thencc=cc+asc(bb$)*256
555 print"[152]"mid$(str$(cc),2);tab(8);
556 get#1,bb$:ifst<>0then564
557 ifbb$<>chr$(34)then556
558 get#1,bb$:ifbb$<>chr$(34)thenprintbb$;:goto558
559 get#1,bb$:ifbb$=chr$(32)then559
560 printtab(30);:cc$=""
561 cc$=cc$+bb$:get#1,bb$:ifbb$<>""then561
562 print"["left$(cc$,3)"]"
563 ifst=0then551
564 print"[158][194][204][207][195][203][211] [198][210][197][197]":close1
565 poke198,0:wait198,1:poke198,0
566 goto275
567 :
568 print"[147] [155] [201]m [211]peicher [146][154]"
569 forx=1to13:print" [146]":next
570 print""
571 forx=1to10:printtab(25)""kf$(x):next
572 return